home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
misc
/
zpoint_3_14.lha
/
zpoint-3.14
/
Rexx
/
4binden.zprx
next >
Wrap
Text File
|
1995-07-23
|
3KB
|
132 lines
/*
$VER: 4binden.zprx 1.2 (21.7.95) Copyright (c) Nils Görs.
FUNKTIONSBESCHREIBUNG:
Zum zusammenfügen von mehreren, thematisch zusammengehörenden,
Nachrichten mit anschließender Sicherung in das selbe Brett und
nicht, wie das interne 4binden, in das Spool-Brett.
INSTALLATION:
Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
"F1:SYS:Rexxc/RX ZPOINT:Rexx/4binden.zprx %s" hinzu.
Alternativ hierzu können Sie auch folgende Zeilen in die Datei
usermenus.zp einfügen:
*4binden im Brett
SYS:Rexxc/RX Zodiac:Rexx/4binden.zprx %s
AUTOR DIESES SKRIPTS:
Nils Görs Tel. : +49 (0)202 784258
Kaiserstr. 97a EMail: N.Goers@Art-Line.Art-Line.de
42329 Wuppertal oder über das ZP-Support-Brett.
Verwenden Sie bitte nach Möglichkeit elektronische Post!
*/
/* Sollen die alten Nachrichten gelöscht werden ??
1 = JA (4binden.zprx verhält sich dabei wie der interne 4binden
Befehl von Zodiac's Point!)
*/
DeleteMess = 0
/* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
* Bitte geben Sie hier ihre Präferenzen ein ! *
*******************************************************************/
/*******************************************************************
* Bitte unterhalb dieser Zeile nichts mehr verändern! *
*******************************************************************/
Mails.tmp = "t:4binden.tmp"
NL = '0a'x
OPTIONS RESULTS
/* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
PARSE ARG zpPort
IF zpPort == "" THEN
zpPort = "ZPoint"
ADDRESS VALUE zpPort
WHICHLEVEL /* von wo wurde das Skript gestartet ? */
IF RESULT ~= "BOARD" THEN DO
REQUESTNOTIFY "Bitte begeben Sie sich in ein Brett!"
EXIT
END
COUNT LISTED
IF RESULT <= 1 THEN DO
REQUESTNOTIFY "Verbinden macht nur dann einen Sinn, wenn"NL,
"man mehr als eine Nachricht hat!"; EXIT
END
IF RESULT == 0 THEN DO
REQUESTNOTIFY "Es wurden keine Nachrichten gefunden,"NL,
"die markiert sind zum verbinden!"; EXIT
END
'GUILOCK text="verbinde Nachrichten..."'
BOARDINFO LABEL
Brettname = Result
MESSAGEINFO POSITION /* Wo steht der Markierungsbalken? */
MailPos = Result
Subjectname = 0
JUMPTOMESSAGE 1 /* An die erste Nachricht springen! */
MESSAGEINFO LISTED /* ist diese erste Nachricht markiert? */
IF Result == 1 THEN
DO
MESSAGEINFO FULLSUBJECT
SubjectName = Result
MESSAGEINFO AUTHOR
ReceiverName = Result
CALL _Auslagern
END
IF Subjectname == 0 THEN
DO
JUMPTOMESSAGE LISTED
MESSAGEINFO FULLSUBJECT
SubjectName = Result
MESSAGEINFO AUTHOR
ReceiverName = Result
CALL _Auslagern
END
more = 1
DO WHILE more
JUMPTOMESSAGE LISTED
more = (RC)
IF more == 1 THEN CALL _Auslagern
END
WRITEMESSAGE Mails.tmp,
'RECEIVER' '"'Receivername'"',
'SUBJECT' '"'SubjectName'"',
'SAVE'
id.no = RESULT
CALL _DeleteMessInSpool
GUILOCK OFF
EXIT
_Auslagern:
SAVEMESSAGEBODY Mails.tmp
IF DeleteMess == 1 THEN DELETE ONE FORCE
RETURN
_DeleteMessInSpool:
BOARDMENU
JUMPTOBOARD 1
ENTERBOARD
JUMPTOMESSAGE 'ID' id.no
DELETE ONE
BOARDMENU
JUMPTOBOARD 'NAME' BrettName
ENTERBOARD
RETURN
/*EOS*/